string->list   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/init.xtm

Implementation

(define (string->list s)
  (let loop ((n (pred (string-length s))) (l '()))
    (if (= n -1)
        l
        (loop (pred n) (cons (string-ref s n) l)))))


Back to Index